home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm1 / maxfileg.lha / MAX-FileGuide1.0 / Install < prev    next >
Text File  |  1995-09-30  |  3KB  |  124 lines
  1. ;
  2. ;                MAX-FileGuide © 1995 Marcin Orlowski
  3. ;
  4. ;        ---------------------------------------------------------
  5. ;
  6. ;        ###    ###    #########  ###    ###    ###    ###
  7. ;        ###    ###    ###        ####  ####    ###    ###
  8. ;        ###    ###    ###        ### ## ###    ###    ###
  9. ;        ###    ###    ########   ### ## ###    ##########
  10. ;        ### ## ###    ########   ###    ###    ##########
  11. ;        ### ## ###    ###        ###    ###    ###    ###
  12. ;        ####  #### ## ###     ## ###    ### ## ###    ### ##
  13. ;        ###    ### ## ###     ## ###    ### ## ###    ### ##
  14. ;
  15. ;        ---------------------------------------------------------
  16. ;
  17. ;            Mental Pictures Developed Here
  18. ;
  19. ;                Marcin Orlowski
  20. ;                ul. Radomska 38
  21. ;                71-002 Szczecin
  22. ;
  23. ;         SilverDream!'s BBS:      +48 (0)91-540431  (24h non-stop)
  24. ;                               GlobalNet: 52:4800/6
  25. ;                               FidoNet  :  2:481/22.2
  26. ;
  27. ;        Internet:         carlos@felix.univ.szczecin.pl
  28. ;
  29. ;
  30. ;
  31. ;
  32. (set OS_Version (/ (getversion "exec.library" (resident)) 65536))
  33. (if (< OS_Version 37)
  34.     (abort  "\n\n\nTo use MAX-FileGuide you need at least\n"
  35.         "Kickstart 2.1 installed on your Amiga!"
  36.     )
  37. )
  38.  
  39. (complete 0)
  40. (welcome
  41.     "\n"
  42.     " ###    ###    #########  ###    ###    ###    ###\n"
  43.     " ###    ###    ###        ####  ####    ###    ###\n"
  44.     " ###    ###    ###        ### ## ###    ###    ###\n"
  45.     " ###    ###    ########   ### ## ###    ##########\n"
  46.     " ### ## ###    ########   ###    ###    ##########\n"
  47.     " ### ## ###    ###        ###    ###    ###    ###\n"
  48.     " ####  #### ## ###     ## ###    ### ## ###    ###\n"
  49.     " ###    ### ## ###     ## ###    ### ## ###    ###\n"
  50.     "\n"
  51.     "      ------------------------------------------\n"
  52.     "                    MAX-FileGuide\n"
  53.     "      ------------------------------------------"
  54. )
  55.  
  56.  
  57. (set MAX_dest
  58.     (askdir
  59.         (prompt  "Select home for MAX-FileGuide:")
  60.         (help   @askdir-help)
  61.         (default "C:")
  62.   )
  63. )
  64.  
  65. (copyfiles
  66.   (source "MAX-FileGuide")
  67.   (dest MAX_Dest)
  68.   (infos)
  69. )
  70.  
  71. (complete 30)
  72.  
  73.  
  74. (set MAX_dest
  75.     (askdir
  76.         (prompt  "Select home for doc file")
  77.         (help   @askdir-help)
  78.         (default "HELP:english")
  79.   )
  80. )
  81.  
  82. (copyfiles
  83.   (source "MAX-FileGuide.guide")
  84.   (dest MAX_Dest)
  85.   (infos)
  86. )
  87.  
  88. (complete 70)
  89.  
  90.  
  91. (set wynik (askoptions
  92.                 (prompt  "Select catalog files you want:")
  93.                (help    @askoptions-help)
  94.                 (choices
  95.                  " Polski"
  96.             )
  97.  
  98.               )
  99. )
  100.  
  101.  
  102. (if (bitand wynik 1)
  103.   (copyfiles
  104.        (source "Catalogs/Polski")
  105.        (dest "LOCALE:Catalogs/Polski22")
  106.        (all)
  107.   )
  108. )
  109.  
  110. (complete 100)
  111.  
  112.  
  113. (message "\n"
  114.             "Please send your suggestions, bug report\n"
  115.          "translations or whatever to me at:\n\n"
  116.    "Marcin Orlowski\n"
  117.      "ul. Radomska 38\n"
  118.      "71-002  Szczecin\n\n"
  119.      "SilverDream!'s BBS:  +48 (0)91-540431  (non-stop)\n\n"
  120.      "Internet: carlos@felix.univ.szczecin.pl\n\n"
  121.      "MR SOFT / World Federation of Mad Hackers"
  122. )
  123. (exit (QUIET))
  124.